home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 164 - Disc 1 / MF_UK_164_1.iso / Files / Scenes / HOME.DIR / Internal_64_Text Field weblink.ls < prev    next >
Encoding:
Text File  |  2005-11-16  |  405 b   |  14 lines
  1. property linksList
  2.  
  3. on mouseUp me
  4.   linksList = []
  5.   repeat with i = 1 to sprite(me.spriteNum).member.word.count
  6.     if sprite(me.spriteNum).member.word[i] contains "http://" then
  7.       put sprite(me.spriteNum).member.word[i]
  8.       sprite(me.spriteNum).member.word[i].color = rgb(0, 0, 255)
  9.       tempLink = sprite(me.spriteNum).member.word[i]
  10.       linksList.append(tempLink)
  11.     end if
  12.   end repeat
  13. end
  14.